﻿Imports Entidades
Imports Negocio

Public Class FormCategoria
    Private cat As Categorias
    Private dcat As daoCategorias




    Private Sub FormCategoria_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargolista() ' método que carga el listbox 
        cat = New Categorias

        'ellist1.DataSource = ds.Tables(0)
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        'cargo el nodo con el nombre digitado
        cat.nombre = elnombre.Text

        ' llamo a metodo que da de alta (Negocio) y como es booleano, si es verdadero, limpio el listbox y lo cargo de nuevo.
        If dcat.Altacategoria(cat) Then

            ellist.Items.Clear()

            cargolista()

        Else ' Hubo un problema al grabar la categoria.
            MsgBox("Problema")
        End If
    End Sub
    Private Sub cargolista()
        dcat = New daoCategorias
        Dim arr As ArrayList = dcat.consultacategoria 'LA CAPA DE NEGOCIO ME DEVUELVE UN ARRAYLIST
        Dim nodo As Categorias = New Categorias
        ' recorro el arraylist cargando el nodo.
        ' cargo el listbox con los datos del nodo.

        For Each nodo In arr
            ellist.Items.Add(nodo.nombre)
            ellist1.Items.Add(nodo.id)

        Next


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ellist.SelectedIndexChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        cat.nombre = ellist.SelectedItem
        If dcat.Bajacategorias(cat) Then

            ellist.Items.Clear()

            cargolista()
        Else
            MsgBox("Clique denuevo para confirmar")
        End If
    End Sub

    Private Sub ellist1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ellist1.SelectedIndexChanged

    End Sub
End Class